MacWorld 1999 April/Macworld (1999-04).dmg/Cool Specials/Al Morale Demo/Al's Stuff/D200.DCR/00044_Up one frame.ls

Text File | 1999-02-16 | 672 b | 24 lines

on mouseDown
  buttonClick3()
end

on mouseUp
  global gUserName
  set NameCheck to the text of member "UserName"
  if NameCheck = "Type your name here" then
    alert("Please personalize your copy of Al Morale by entering your name.")
    go(the frame)
  else
    if length(field "UserName") = 0 then
      alert("Please personalize your copy of Al Morale by entering your name.")
      go(the frame)
    else
      set the editable of member "LOCKname" to 1
      set gUserName to the text of member "UserName"
      put the text of member "UserName" into field "LOCKname"
      set the editable of member "LOCKname" to 0
      go(the frame + 1)
    end if
  end if
end